Apple Reference & Presen…tion Library 4 (Reseller)/Apple Ref. & Pres. Lib.v4.0.iso/6-Apple⁄DEC Alliance/Solutions & Networking Guide/Macintosh Networking Guide/Macintosh Networking Guide/card_11559.txt

Text File | 1990-04-17 | 21KB | 854 lines

-- card: 11559 from stack: in
-- bmap block id: 13197
-- flags: 0000
-- background id: 18894
-- name: Hardware Room
----- HyperTalk script -----
on openCard
  global sol,env,foundation,prodnameH,prodnameHP
  put "Hardware Level" into fld "Floorname"
  --∆ Set level buttons when entering from hall
  set hilite of bkgnd btn "Application Level" to false
  set hilite of bkgnd btn "Network Level" to false
  set hilite of bkgnd btn "Hardware Level" to true
  --∆ Clear signs
  put true into tidyUpNow
  --∆ Set scroll on display fields
  set the scroll of cd fld "side1" to 0
  set the scroll of cd fld "side2" to 0
  --∆ Paint signs at back of room
  if env is not "Mac" then
    put env into envTemp
  else
    put "Macintosh" into envTemp
  end if
  put envTemp && "Compatible" & return & "Macintosh Related Hardware" into fld "Tell"
  put "Macintosh based" && envTemp && "Compatible Hardware" into cd fld "Choice"
  repeat with i = 3 to 9
    set the hilite of cd btn i to false
  end repeat
  if env <> "PC" then
    put empty into fld "Prodname2"
    put empty into cd fld "Protocol2"
    set hilite of bkgnd btn id 52 to false
    hide btn "PC"
  else
    show btn "PC"
  end if
  --∆ Show the correct CPU
  hide cd btn "Macintosh II Family"
  hide cd btn "Macintosh Portable"
  hide cd btn "Macintosh SE"
  hide cd btn "Macintosh SE/30"
  show cd btn foundation
  if prodnameH is empty then set hilite of bkgnd btn id 43 to false
  if prodnameHP is empty then set hilite of bkgnd btn id 52 to false
  pass openCard
end openCard

on getMac
  global holder,env,computer,temp
  put empty into temp
  repeat with i = 1 to the number of lines of holder
    if item 1 of line i of holder <> empty and item 3 of line i of holder is computer then
      put character 1 to 31 of item 1 of line i of holder & return after temp
    end if
  end repeat
  if temp <> empty then
    put temp after cd fld "Side1"
  else
    put "No solutions installed in this version" after cd fld "Side1"
  end if
end getMac

on closeCard
  hide cd fld "Side1"
  hide cd fld "Side2"
  set the hilite of cd btn "Macintosh II Family" to false
  set the hilite of cd btn "Macintosh Portable" to false
  set the hilite of cd btn "Macintosh SE" to false
  set the hilite of cd btn "Macintosh SE/30" to false
  pass closeCard
end closeCard

on getPC
  global holder,env,computer,temp
  put empty into temp
  repeat with i = 1 to the number of lines of holder
    if item 2 of line i of holder <> empty and item 3 of line i of holder is computer
    then
    put item 2 of line i of holder & return after temp
  end if
end repeat
if temp <> empty then
  put temp after cd fld "Side2"
else
  put "No Solutions installed in this version" after cd fld "Side2"
end if
end getPC




-- part 1 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=0 top=0 right=300 bottom=30
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on mouseUp
  global env,foundation,hall,currentFloor,lastRoom
  if hall is empty then put "Hallway1" into hall
  put env && foundation into lastRoom
  put "1  Hardware" into currentFloor
  set lockscreen to true
  go to cd hall
  unlock screen with zoom open slowly
end mouseUp

On mouseDown
  global ButtonSND
  play ButtonSND
End mouseDown

on mouseEnter
  changeCurs 6069
  put "Exit to Hall" & return & "click to go to hall" into fld "Tell"
end mouseEnter

on mouseLeave
  changeCurs 69
  put empty into fld "Tell"
end mouseLeave


-- part 30 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=57 top=65 right=86 bottom=434
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 156
-- text size: 14
-- style flags: 256
-- line height: 18
-- part name: Choice


-- part 76 (button)
-- low flags: 00
-- high flags: 8004
-- rect: left=41 top=155 right=210 bottom=142
-- title width / last selected line: 0
-- icon id / first selected line: 10715 / 10715
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Macintosh II Family
----- HyperTalk script -----
on mouseUp
  global computer,holder
  put "Macintosh II Family" into computer
  set lockscreen to true
  if holder is empty then
    put "No Solutions Installed in this version" into fld "Tell"
    exit mouseUp
  end if
  put "Macintosh II Family Products:" & return & return into cd fld "Side1"
  getMac
  if line 3 of cd fld "Side1" is empty then
    put "No Solutions Installed In This Version" after cd fld "Side1"
  end if
  set lockscreen to false
  set the visible of cd fld "Side1" to true
end mouseUp

on mouseEnter
  changeCurs 6069
  put "Macintosh II Family" & return & "click to select products" into fld "Tell"
end mouseEnter

on mouseLeave
  changeCurs 69
  put empty into fld "Tell"
end mouseleave




-- part 78 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=62 top=90 right=154 bottom=245
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 65535
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: Protocol
----- HyperTalk script -----
on mouseEnter
  changeCurs 6069
  put "Product Protocol" & return & "click Product name for more" into fld "Tell"
end mouseEnter

on mouseLeave
  changeCurs 69
  put empty into fld "Tell"
end mouseleave

on mouseUp
  send mouseUp to bkgnd btn "Hardware"
end mouseUp


-- part 80 (button)
-- low flags: 80
-- high flags: 8004
-- rect: left=52 top=141 right=207 bottom=142
-- title width / last selected line: 0
-- icon id / first selected line: 2504 / 2504
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Macintosh SE
----- HyperTalk script -----
on mouseUp
  global computer,holder
  put "Macintosh SE " into computer
  set lockscreen to true
  repeat with i = 3 to 8
    set the hilite of cd btn i to false
  end repeat
  if holder is empty then
    put "No Solutions Installed In This Version" into fld "Tell"
    exit mouseUp
  end if
  put "Macintosh SE Products:" & return & return into cd fld "Side1"
  getMac
  if line 3 of cd fld "Side1" is empty then
    put "No Solutions Installed In This Version" after cd fld "Side1"
  end if
  set lockscreen to false
  set the visible of cd fld "Side1" to true
end mouseUp

on mouseEnter
  changeCurs 6069
  put "Macintosh SE Computer" & return & "click to select products" into fld "Tell"
end mouseEnter

on mouseLeave
  changeCurs 69
  put empty into fld "Tell"
end mouseleave




-- part 81 (button)
-- low flags: 80
-- high flags: 8004
-- rect: left=51 top=149 right=208 bottom=145
-- title width / last selected line: 0
-- icon id / first selected line: 2504 / 2504
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Macintosh SE/30
----- HyperTalk script -----
on mouseUp
  global computer,holder
  put "Macintosh SE/30" into computer
  set lockscreen to true
  if holder is empty then
    put "No Solutions Installed In This Version" into fld "Tell"
    exit mouseUp
  end if
  put "Macintosh SE/30 Products:" & return & return into cd fld "Side1"
  getMac
  if line 3 of cd fld "Side1" is empty then
    put "No Solutions Installed In This Version" after cd fld "Side1"
  end if
  set lockscreen to false
  set the visible of cd fld "Side1" to true
end mouseUp

on mouseEnter
  changeCurs 6069
  put "Macintosh SE/30" & return & "click to select products" into fld "Tell"
end mouseEnter

on mouseLeave
  changeCurs 69
  put empty into fld "Tell"
end mouseleave



-- part 91 (button)
-- low flags: 80
-- high flags: 8004
-- rect: left=390 top=153 right=211 bottom=472
-- title width / last selected line: 0
-- icon id / first selected line: 20795 / 20795
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: PC
----- HyperTalk script -----
on mouseUp
  global computer,holder,env
  put "PC" into computer
  if holder is empty
  then
  put "No Solutions Installed" & return & "in this version" into fld "Tell"
  exit mouseUp
end if
put "PC Compatible Products:" & return & return into cd fld "Side2"
getPC
if line 3 of cd fld "Side2" is empty then
  put "No Solutions installed in this version" after cd fld "Side2"
end if
set lockscreen to false
set the visible of cd fld "Side2" to true
end mouseUp

on mouseEnter
  changeCurs 6069
  put "PC Compatible Computer" & return & "click to select products" into fld "Tell"
end mouseEnter

on mouseLeave
  changeCurs 69
  put empty into fld "Tell"
end mouseLeave



-- part 86 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=249 top=90 right=154 bottom=430
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: Protocol2
----- HyperTalk script -----
on mouseEnter
  changeCurs 6069
  put "Product Protocol" & return & "go to Hardware for info" into fld "Tell"
end mouseEnter

on mouseLeave
  changeCurs 69
  put empty into fld "Tell"
end mouseleave

--on mouseUp
--send mouseUp to bkgnd btn "Hardware"
--end mouseUp


-- part 89 (button)
-- low flags: 80
-- high flags: 8000
-- rect: left=67 top=121 right=174 bottom=127
-- title width / last selected line: 0
-- icon id / first selected line: 15090 / 15090
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Portable
----- HyperTalk script -----
on mouseUp
  global Help,computer,holder
  if Help then exit mouseUp
  put "Portable" into computer
  set lockscreen to true
  repeat with i = 3 to 8
    set the hilite of cd btn i to false
  end repeat
  set the hilite of me to true
  if holder is empty
  then
  put "No Solutions....yet!" into fld "Tell"
  exit mouseUp
end if
put "Macintosh Portable Computer" into cd fld "Choice"
put "Macintosh Portable Products:" & return & return into cd fld "Side1"
getMac
if line 3 of cd fld "Side1" is empty then
  put "No Solutions...here!" after cd fld "Side1"
end if
set lockscreen to false
set the visible of cd fld "Side1" to true
end mouseUp

on mouseEnter
  global Help
  if Help then
  else
    put "'Macintosh SE' Computer" & return & "click to select products" into fld "Tell"
  end if
end mouseEnter

on mouseLeave
  global Help
  if help then
  else
    changeCurs 6069
    put empty into fld "Tell"
  end if
end mouseleave




-- part 94 (button)
-- low flags: 00
-- high flags: 8003
-- rect: left=187 top=217 right=238 bottom=332
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Cabling Comparison
----- HyperTalk script -----
on mouseUp
  go card "Cabling Comparison"
end mouseUp

on mouseEnter
  put "Cabling Comparison Button" & return & "click to compare cable systems" into fld "Tell"
  changeCurs 6069
end mouseEnter

on mouseLeave
  put empty into fld "Tell"
  changeCurs 69
end mouseleave




-- part 95 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=159 top=180 right=215 bottom=344
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: mask


-- part 96 (button)
-- low flags: 80
-- high flags: 0000
-- rect: left=59 top=127 right=141 bottom=231
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: side1Hiliter


-- part 97 (button)
-- low flags: 80
-- high flags: 8004
-- rect: left=42 top=148 right=205 bottom=147
-- title width / last selected line: 0
-- icon id / first selected line: 15090 / 15090
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Macintosh Portable
----- HyperTalk script -----
on mouseUp
  global computer,holder
  put "Macintosh Portable" into computer
  set lockscreen to true
  if holder is empty then
    put "No Solutions Installed In This Version" into fld "Tell"
    exit mouseUp
  end if
  put "Macintosh Portable Products:" & return & return into cd fld "Side1"
  getMac
  if line 3 of cd fld "Side1" is empty then
    put "No Solutions Installed In This Version" after cd fld "Side1"
  end if
  set lockscreen to false
  set the visible of cd fld "Side1" to true
end mouseUp

on mouseEnter
  changeCurs 6069
  put "Macintosh Portable" & return & "click to select products" into fld "Tell"
end mouseEnter

on mouseLeave
  changeCurs 69
  put empty into fld "Tell"
end mouseleave




-- part 98 (button)
-- low flags: 80
-- high flags: 8002
-- rect: left=55 top=156 right=208 bottom=146
-- title width / last selected line: 0
-- icon id / first selected line: 10714 / 10714
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Macintosh IIci
----- HyperTalk script -----
on mouseUp
  global computer,holder
  put "Macintosh IIci" into computer
  set lockscreen to true
  repeat with i = 3 to 8
    set the hilite of cd btn i to false
  end repeat
  if holder is empty
  then
  put "No Solutions Installed In This Version" into fld "Tell"
  exit mouseUp
end if
put "Macintosh IIci Computer" into cd fld "Choice"
put "Macintosh IIci Products:" & return & return into cd fld "Side1"
getMac
if line 3 of cd fld "Side1" is empty then
  put "No Solutions Installed In This Version" after cd fld "Side1"
end if
set lockscreen to false
set the visible of cd fld "Side1" to true
end mouseUp

on mouseEnter
  changeCurs 6069
  put "Macintosh IIci" & return & "click to select products" into fld "Tell"
end mouseEnter

on mouseLeave
  changeCurs 69
  put empty into fld "Tell"
end mouseleave




-- part 99 (button)
-- low flags: 80
-- high flags: 8002
-- rect: left=48 top=153 right=207 bottom=141
-- title width / last selected line: 0
-- icon id / first selected line: 10715 / 10715
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Macintosh IIfx
----- HyperTalk script -----
on mouseUp
  global computer,holder
  put "Macintosh IIfx" into computer
  set lockscreen to true
  repeat with i = 3 to 8
    set the hilite of cd btn i to false
  end repeat
  if holder is empty
  then
  put "No Solutions Installed In This Version" into fld "Tell"
  exit mouseUp
end if
put "Macintosh IIfx Computer" into cd fld "Choice"
put "Macintosh IIfx Products:" & return & return into cd fld "Side1"
getMac
if line 3 of cd fld "Side1" is empty then
  put "No Solutions Installed In This Version" after cd fld "Side1"
end if
set lockscreen to false
set the visible of cd fld "Side1" to true
end mouseUp

on mouseEnter
  changeCurs 6069
  put "Macintosh IIfx" & return & "click to select products" into fld "Tell"
end mouseEnter

on mouseLeave
  changeCurs 69
  put empty into fld "Tell"
end mouseleave




-- part 84 (field)
-- low flags: 81
-- high flags: 2007
-- rect: left=249 top=86 right=191 bottom=431
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name: Side2
----- HyperTalk script -----
on mouseUp
  global holder,prodnameHP,protocol
  put selectionAndHiliter() into cardline
  put line cardline of me into prodnameHP
  if prodnameHP contains "Products"
  then
  put empty into prodnameHP
  hide cd btn "Side2Hiliter"
  hide me
  exit mouseup
end if
if prodnameHP is empty
then
answer "Empty Choice!" with "Try Again"
exit mouseup
end if
put prodnameHP into fld "Prodname2"
set hilite of bkgnd btn id 52 to true
put "click for product info" into fld "click2"
repeat with i = 1 to the number of lines of holder
  if item 2 of line i of holder is prodnameHP then
    put item 7 of line i of holder into device
    put prodnameHP & "," & return & device & "," & return into cd fld "Protocol2"
  end if
  if item 2 of line i of holder is prodnameHP then
    put item 6 of line i of holder into dotnames
    put offset("•",dotnames) into num
    if num is empty or num is 0 then exit repeat
    put char 1 to (num - 1) of dotnames into protocol
    put "uses" && protocol & "," & return after cd fld "Protocol2"
  end if
  if item 2 of line i of holder is prodnameHP then
    put item 4 of line i of holder into dotnames
    put empty into ProtocolD2
    repeat
      put offset("•",dotnames) into num
      if num is empty or num is 0 then
        delete last char of ProtocolD2
        exit repeat
      end if
      put char 1 to (num - 1) of dotnames & "/" after ProtocolD2
      delete char 1 to num of dotnames
    end repeat
    put "and provides" && ProtocolD2 after cd fld "Protocol2"
  end if
end repeat
hide cd btn "Side2Hiliter"
hide me
end mouseUP

on mouseEnter
  changeCurs 6069
  put "PC Products Field" & return & "click to select a product" into fld "Tell"
end mouseEnter

on mouseLeave
  changeCurs 69
  put empty into fld "Tell"
end mouseleave

On mouseDown
  Global ClickSND
  play ClickSND
End mouseDown


-- part 101 (button)
-- low flags: 80
-- high flags: 4000
-- rect: left=250 top=91 right=106 bottom=414
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Side2Hiliter


-- part 77 (field)
-- low flags: 81
-- high flags: 2007
-- rect: left=16 top=86 right=193 bottom=248
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name: Side1
----- HyperTalk script -----
on mouseUp
  global holder,prodnameH,protocol,ProtocolD
  put selectionAndHiliter() into cardline
  put line cardline of me into prodnameH
  if prodnameH contains "Products" or prodnameH contains "No solution"
  then
  hide cd btn "side1Hiliter"
  hide me
  put empty into prodnameH
  exit mouseup
end if
if prodnameH is empty
then
answer "Empty Choice!" with "Try Again"
exit mouseup
end if
set lockscreen to true
put prodnameH into fld "Prodname"
set hilite of bkgnd btn id 43 to true
put "click for product info" into fld "click"
repeat with i = 1 to the number of lines of holder
  if item 1 of line i of holder is prodnameH then
    put item 7 of line i of holder into device
    put prodnameH & "," & return & device & "," & return into cd fld "Protocol"
  end if
  if item 1 of line i of holder is prodnameH then
    put item 6 of line i of holder into dotnames
    put offset("•",dotnames) into num
    if num is empty or num is 0 then exit repeat
    put char 1 to (num - 1) of dotnames into protocol
    put "uses" && protocol & "," & return after cd fld "Protocol"
  end if
  if item 1 of line i of holder is prodnameH then
    put item 4 of line i of holder into dotnames
    put empty into ProtocolD
    repeat
      put offset("•",dotnames) into num
      if num is empty or num is 0 then
        delete last char of ProtocolD
        exit repeat
      end if
      put char 1 to (num - 1) of dotnames & "/" after Protocold
      delete char 1 to num of dotnames
    end repeat
    put "and provides" && ProtocolD after cd fld "Protocol"
  end if
end repeat
hide cd btn "side1Hiliter"
hide me
unlock screen with iris close
end mouseUP

on mouseEnter
  changeCurs 6069
  put "Products Field" & return & "click to select a product" into fld "Tell"
end mouseEnter

on mouseLeave
  changeCurs 69
  put empty into fld "Tell"
end mouseleave

On mouseDown
  Global ClickSND
  play ClickSND
End mouseDown

on parseP
  global holder,Protocold,prodname
  put empty into Protocold
  repeat with i = 1 to the number of lines of holder
    if item 1 of line i of holder is prodname then
      put item 4 of line i of holder into dotnames
      repeat
        put offset("•",dotnames) into num
        if num is empty or num is 0 then exit repeat
        put char 1 to (num - 1) of dotnames & return after Protocold
        delete char 1 to num of dotnames
      end repeat
    end if
  end repeat
end parseP


-- part contents for card part 30
----- text -----
Macintosh based Digital Compatible Hardware

-- part contents for background part 41
----- text -----
Macintosh to Digital Hardware Room

-- part contents for background part 68
----- text -----
Hardware Level

-- part contents for card part 84
----- text -----
Digital based Products:

No Solutions installed in this version

-- part contents for card part 77
----- text -----
Macintosh II Family Products:

Apple EtherTalk NB Card
CommCard
Local and Remote Repeaters
Multimedia Ethernet System
10BaseT Transceiver
Du Pont  Fiber Optic Inter-Repe
Ether2
ETHERLINK NB
EtherPort II
EtherPort IIL
LattisNet Model 3030 Department
PHONENET CARD
ProModem 2400MII